(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     20513,        579]
NotebookOptionsPosition[     16783,        504]
NotebookOutlinePosition[     17140,        520]
CellTagsIndexPosition[     17097,        517]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:6b27\:59c6\:8868\:7ec4\:88c5", "Title",
 CellChangeTimes->{{3.784355415778022*^9, 
  3.7843554174051685`*^9}},ExpressionUUID->"67a8492b-b6b5-41d0-90f8-\
99fc543e84c5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"equ", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Ig", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Rg", "+", "R3"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"R1", "+", "R2"}], ")"}]}]}], "+", "Ig"}], ")"}], "*", 
     RowBox[{"(", 
      RowBox[{"R4", "+", "Rx"}], ")"}]}], "+", 
    RowBox[{"Ig", "*", 
     RowBox[{"(", 
      RowBox[{"Rg", "+", "R3"}], ")"}]}]}], "\[Equal]", "e"}]}]], "Input",
 CellChangeTimes->{{3.7843554535739946`*^9, 3.784355532413522*^9}, {
  3.784355621808752*^9, 3.7843556618455596`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"13df52e5-d3fb-40fa-bd0e-95eb1b3fec7b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Ig", " ", 
    RowBox[{"(", 
     RowBox[{"R3", "+", "Rg"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Ig", "+", 
      FractionBox[
       RowBox[{"Ig", " ", 
        RowBox[{"(", 
         RowBox[{"R3", "+", "Rg"}], ")"}]}], 
       RowBox[{"R1", "+", "R2"}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"R4", "+", "Rx"}], ")"}]}]}], "\[Equal]", "e"}]], "Output",
 CellChangeTimes->{3.7843556625564656`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"b046fb1c-854a-4c92-b802-dffcd80f29b7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"con1", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Ig", "\[Rule]", 
     RowBox[{"25", "*", 
      RowBox[{"10", "^", 
       RowBox[{"-", "6"}]}]}]}], ",", 
    RowBox[{"Rx", "\[Rule]", "10000"}], ",", 
    RowBox[{"e", "\[Rule]", "1.5"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.784355683921208*^9, 3.7843557273422794`*^9}, {
  3.7843560240965443`*^9, 3.7843560275862274`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"e904546c-828e-4b8e-b163-87ff5aa72cf3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Ig", "\[Rule]", 
    FractionBox["1", "40000"]}], ",", 
   RowBox[{"Rx", "\[Rule]", "10000"}], ",", 
   RowBox[{"e", "\[Rule]", "1.5`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.784355729198817*^9, 3.784356028496961*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"8254c7e8-0c29-4d0f-b49f-593a737e5cf9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"con2", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Ig", "\[Rule]", 
     RowBox[{"50", "*", 
      RowBox[{"10", "^", 
       RowBox[{"-", "6"}]}]}]}], ",", 
    RowBox[{"Rx", "\[Rule]", "0"}], ",", 
    RowBox[{"e", "\[Rule]", "1.5"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.78435573116031*^9, 3.784355752303871*^9}, {
  3.784356030715369*^9, 3.784356036736763*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"4b9d6d36-4190-456d-b1c4-6fca4960c9e1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Ig", "\[Rule]", 
    FractionBox["1", "20000"]}], ",", 
   RowBox[{"Rx", "\[Rule]", "0"}], ",", 
   RowBox[{"e", "\[Rule]", "1.5`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.784355753312373*^9, 3.7843560375664625`*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"8f42d132-ea07-47af-a706-daed688f4876"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rz", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Rg", "+", "R3"}], ")"}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"R1", "+", "R2"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"Rg", "+", "R1", "+", "R2", "+", "R3"}], ")"}]}]}], "+", 
   "R4"}]}]], "Input",
 CellChangeTimes->{{3.784355900895977*^9, 3.7843559435384235`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"131e904a-c182-4fc8-ae82-1cb620de270e"],

Cell[BoxData[
 RowBox[{"R4", "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"R1", "+", "R2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"R3", "+", "Rg"}], ")"}]}], 
   RowBox[{"R1", "+", "R2", "+", "R3", "+", "Rg"}]]}]], "Output",
 CellChangeTimes->{3.7843559444231176`*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"df239c3c-38b0-423c-9899-83561e1e4f8a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"con3", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"R1", ">", "0"}], "&&", 
    RowBox[{"R2", ">", "0"}], "&&", 
    RowBox[{"R3", ">", "0"}], "&&", 
    RowBox[{"R4", ">", "0"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7843557568406067`*^9, 3.784355767616584*^9}, {
  3.7843558121624937`*^9, 3.7843558516360054`*^9}, {3.7843560728838787`*^9, 
  3.784356079165533*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"17ee2769-8d7e-4d01-a0fd-a8a3fd21ed7c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"R1", ">", "0"}], "&&", 
   RowBox[{"R2", ">", "0"}], "&&", 
   RowBox[{"R3", ">", "0"}], "&&", 
   RowBox[{"R4", ">", "0"}]}], "}"}]], "Output",
 CellChangeTimes->{3.784355852360427*^9, 3.7843560814019365`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"222ca44a-615c-40e2-97b7-8b571e59925c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"equ", "/.", "con1"}], ")"}], "&&", 
    RowBox[{"(", 
     RowBox[{"equ", "/.", "con2"}], ")"}], "&&", 
    RowBox[{"R1", ">", "0"}], "&&", 
    RowBox[{"R2", ">", "0"}], "&&", 
    RowBox[{"R3", ">", "0"}], "&&", 
    RowBox[{"R4", ">", "0"}], "&&", 
    RowBox[{"Rg", "\[Equal]", "2600"}], "&&", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"R4", "/", "Rz"}], ">", "0.9"}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"R1", ",", "R2", ",", "R3", ",", "R4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7843558540879602`*^9, 3.7843558953123055`*^9}, {
  3.784355951589834*^9, 3.7843560065113945`*^9}, {3.7843560907395997`*^9, 
  3.784356095807082*^9}, {3.784356161753504*^9, 3.784356189041483*^9}, {
  3.784356226939043*^9, 3.784356239815383*^9}, {3.7843569634955*^9, 
  3.7843569668427086`*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"9590766f-8106-47f0-ae9d-69709191b4b8"],

Cell[BoxData[
 TemplateBox[{
  "Reduce","ratnz",
   "\"Reduce \:65e0\:6cd5\:6c42\:89e3\:5177\:6709\:4e0d\:7cbe\:786e\:7cfb\
\:6570\:7684\:7cfb\:7edf. \:7b54\:6848\:662f\:901a\:8fc7\:6c42\:89e3\:76f8\
\:5e94\:7684\:7cbe\:786e\:7cfb\:7edf\:5e76\:4e14\:5c06\:7ed3\:679c\:6570\:503c\
\:5316\:5904\:7406\:5f97\:5230\:7684.\"",2,23,15,27767635407231605212,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.7843561655614805`*^9, 3.7843561913434396`*^9}, {
   3.784356232410507*^9, 3.7843562417967873`*^9}, 3.7843569678015327`*^9},
 CellLabel->
  "\:6b63\:5728\:8ba1\:7b97In[23]:=",ExpressionUUID->"a0576796-304a-4c09-bf80-\
11c45b912d5d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Rg", "\[Equal]", "2600.`"}], "&&", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"0", "<", "R1", "\[LessEqual]", "1300.`"}], "&&", 
      RowBox[{
       RowBox[{"0.5`", " ", 
        RowBox[{"(", 
         RowBox[{"2600.`", "\[VeryThinSpace]", "-", 
          RowBox[{"2.`", " ", "R1"}]}], ")"}]}], "<", "R2", "<", 
       RowBox[{"1500.`", "\[VeryThinSpace]", "-", 
        RowBox[{"1.`", " ", "R1"}]}]}], "&&", 
      RowBox[{"R3", "\[Equal]", 
       RowBox[{
        RowBox[{"-", "2600.`"}], "+", 
        RowBox[{"2.`", " ", "R1"}], "+", 
        RowBox[{"2.`", " ", "R2"}]}]}]}], ")"}], "||", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"1300.`", "<", "R1", "<", "1500.`"}], "&&", 
      RowBox[{"0", "<", "R2", "<", 
       RowBox[{"1500.`", "\[VeryThinSpace]", "-", 
        RowBox[{"1.`", " ", "R1"}]}]}], "&&", 
      RowBox[{"R3", "\[Equal]", 
       RowBox[{
        RowBox[{"-", "2600.`"}], "+", 
        RowBox[{"2.`", " ", "R1"}], "+", 
        RowBox[{"2.`", " ", "R2"}]}]}]}], ")"}]}], ")"}], "&&", 
  RowBox[{"R4", "\[Equal]", 
   FractionBox[
    RowBox[{
     RowBox[{"-", "2.6`*^7"}], "+", 
     RowBox[{"47400.`", " ", "R1"}], "+", 
     RowBox[{"47400.`", " ", "R2"}], "-", 
     RowBox[{"10000.`", " ", "R3"}], "-", 
     RowBox[{"1.`", " ", "R1", " ", "R3"}], "-", 
     RowBox[{"1.`", " ", "R2", " ", "R3"}]}], 
    RowBox[{
    "2600.`", "\[VeryThinSpace]", "+", "R1", "+", "R2", "+", 
     "R3"}]]}]}]], "Output",
 CellChangeTimes->{{3.784356165573453*^9, 3.7843561913864317`*^9}, {
   3.7843562325126023`*^9, 3.7843562418326893`*^9}, 3.7843569678442802`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"130c5dbd-eaa7-497e-9ed1-b2ffce8229c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"equ", "/.", "con1"}]], "Input",
 CellLabel->"In[15]:=",ExpressionUUID->"040b99e1-25ef-4ca2-b749-83fc025c7fa3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{"R3", "+", "Rg"}], "40000"], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"10000", "+", "R4"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "40000"], "+", 
      FractionBox[
       RowBox[{"R3", "+", "Rg"}], 
       RowBox[{"40000", " ", 
        RowBox[{"(", 
         RowBox[{"R1", "+", "R2"}], ")"}]}]]}], ")"}]}]}], "\[Equal]", 
  "1.5`"}]], "Output",
 CellChangeTimes->{
  3.784355968484054*^9, 3.784356007676116*^9, 3.7843560420678806`*^9, {
   3.7843560832849817`*^9, 3.784356096603917*^9}, 3.784356136373294*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"d2803a22-b6d4-4114-bbc3-d2998a519600"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"0.5`", " ", 
    RowBox[{"(", 
     RowBox[{"2600.`", "\[VeryThinSpace]", "-", 
      RowBox[{"2.`", " ", "R1"}]}], ")"}]}], "<", "R2", "<", 
   RowBox[{"1500.`", "\[VeryThinSpace]", "-", 
    RowBox[{"1.`", " ", "R1"}]}]}], "/.", 
  RowBox[{"{", 
   RowBox[{"R1", "\[Rule]", "1000"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7843568312128787`*^9, 3.7843568393582754`*^9}, {
  3.7843569882818313`*^9, 3.7843570126586924`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"754050b6-7fdd-429e-bf6d-6a1f38112351"],

Cell[BoxData[
 RowBox[{"300.`", "<", "R2", "<", "500.`"}]], "Output",
 CellChangeTimes->{3.7843568401072855`*^9, 3.784357013582736*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"5197be21-30dd-4095-a0b2-f12ee749d34a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2600.`"}], "+", 
   RowBox[{"2.`", " ", "R1"}], "+", 
   RowBox[{"2.`", " ", "R2"}]}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"R1", "\[Rule]", "1000"}], ",", 
    RowBox[{"R2", "\[Rule]", "400"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.784356864704775*^9, 3.7843568905978518`*^9}, {
  3.7843570184582653`*^9, 3.784357037812617*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"3a0e0750-b10c-4144-bc9c-0c072ad2a552"],

Cell[BoxData["200.`"], "Output",
 CellChangeTimes->{
  3.7843568927289114`*^9, {3.7843570245076056`*^9, 3.784357044255642*^9}},
 CellLabel->"Out[27]=",ExpressionUUID->"6163c378-895b-4321-b786-e8933e0fb32f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"-", "2.6`*^7"}], "+", 
     RowBox[{"47400.`", " ", "R1"}], "+", 
     RowBox[{"47400.`", " ", "R2"}], "-", 
     RowBox[{"10000.`", " ", "R3"}], "-", 
     RowBox[{"1.`", " ", "R1", " ", "R3"}], "-", 
     RowBox[{"1.`", " ", "R2", " ", "R3"}]}], 
    RowBox[{"2600.`", "\[VeryThinSpace]", "+", "R1", "+", "R2", "+", "R3"}]], 
   "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"R1", "\[Rule]", "1000"}], ",", 
     RowBox[{"R2", "\[Rule]", "400"}], ",", 
     RowBox[{"R3", "\[Rule]", "200"}]}], "}"}]}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.784356930997317*^9, 3.784356947803005*^9}, {
  3.7843570682339287`*^9, 3.784357081751069*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"1f7ef688-79b3-4a98-a965-cb3ea5f48f73"],

Cell[BoxData["9066.666666666666`"], "Output",
 CellChangeTimes->{3.7843569486872244`*^9, 3.7843570819120364`*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"30a57587-9b63-456e-bbab-3ab97d199988"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cond", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Rg", "\[Rule]", "2600"}], ",", 
    RowBox[{"R1", "\[Rule]", "1000"}], ",", 
    RowBox[{"R2", "\[Rule]", "400"}], ",", 
    RowBox[{"R3", "\[Rule]", "200"}], ",", 
    RowBox[{"R4", "\[Rule]", "9000"}], ",", 
    RowBox[{"Ig", "\[Rule]", 
     RowBox[{"50", "*", 
      RowBox[{"10", "^", 
       RowBox[{"-", "6"}]}]}]}], ",", 
    RowBox[{"Rx", "\[Rule]", "0"}], ",", 
    RowBox[{"e", "\[Rule]", "1.5"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7843570896568704`*^9, 3.784357111697775*^9}, {
  3.7843571499947934`*^9, 3.7843571758094225`*^9}, {3.7843572178686867`*^9, 
  3.784357224854967*^9}, {3.7843593813223763`*^9, 3.7843593872952805`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"4e2be940-46a0-4754-81a1-8c51e82f0d9a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Rg", "\[Rule]", "2600"}], ",", 
   RowBox[{"R1", "\[Rule]", "1000"}], ",", 
   RowBox[{"R2", "\[Rule]", "400"}], ",", 
   RowBox[{"R3", "\[Rule]", "200"}], ",", 
   RowBox[{"R4", "\[Rule]", "9000"}], ",", 
   RowBox[{"Ig", "\[Rule]", 
    FractionBox["1", "20000"]}], ",", 
   RowBox[{"Rx", "\[Rule]", "0"}], ",", 
   RowBox[{"e", "\[Rule]", "1.5`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.78435711241584*^9, {3.7843571583866377`*^9, 3.78435717670776*^9}, 
   3.7843572261528535`*^9, 3.78435938799983*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"844a3216-4c26-4508-8dcf-493a566e2bfd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Ig", " ", 
    RowBox[{"(", 
     RowBox[{"R3", "+", "Rg"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Ig", "+", 
      FractionBox[
       RowBox[{"Ig", " ", 
        RowBox[{"(", 
         RowBox[{"R3", "+", "Rg"}], ")"}]}], 
       RowBox[{"R1", "+", "R2"}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"R4", "+", "Rx"}], ")"}]}], "-", "e"}], "/.", "cond"}]], "Input",
 CellChangeTimes->{{3.7843571994989758`*^9, 3.7843572061339025`*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"d5629e39-8c4e-40f4-8082-e1bd2dcfada0"],

Cell[BoxData[
 RowBox[{"-", "0.009999999999999787`"}]], "Output",
 CellChangeTimes->{3.784359350316165*^9, 3.78435939027404*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"e05da35f-1ddf-4ee7-abdc-a27e95ddfa87"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"-", "0.004999999999999893`", "  "}]], "Input",
 CellChangeTimes->{{3.784357625193198*^9, 3.7843576255273037`*^9}, 
   3.784358259144291*^9},ExpressionUUID->"4413cf8a-faf1-402f-b3bc-\
8ffff73bc73b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Rz", "*", "Rx"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"Rz", "+", "Rx"}], ")"}]}], "/", "Rz"}], "\[Equal]", 
     RowBox[{"1", "/", "10"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"R1", "\[Rule]", "1100"}], ",", 
      RowBox[{"R2", "\[Rule]", "140"}], ",", 
      RowBox[{"R3", "\[Rule]", "90"}], ",", 
      RowBox[{"R4", "\[Rule]", "10000"}], ",", 
      RowBox[{"Rg", "\[Rule]", "2600"}]}], "}"}]}], ",", 
   RowBox[{"{", "Rx", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7843601483422985`*^9, 3.7843603574413915`*^9}, {
  3.7843604273266287`*^9, 3.7843604742569904`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"8798a76d-9ef7-4b41-960c-77cdf746b5e1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Rx", "\[Rule]", 
    FractionBox["4263560", "3537"]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.7843603587075386`*^9, 3.7843604778788147`*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"c9bc8ba5-09dd-46a8-b6c4-3523ded18620"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.784360335612158*^9, 3.7843603669462385`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"ec420a4b-9a65-4a5f-83d1-3b0e64bffc1a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Rx", "\[Rule]", "1205.4170200735086`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.7843603371234927`*^9, 3.784360367672323*^9, 
  3.784360481269478*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"5167df0e-975c-4553-8500-b1aac50870c3"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7843603866096697`*^9, 
  3.7843603876774845`*^9}},ExpressionUUID->"a9db1212-ff37-41fd-bd4f-\
23ef26bb587b"]
}, Open  ]]
},
WindowSize->{1280, 637},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 175, 3, 96, "Title",ExpressionUUID->"67a8492b-b6b5-41d0-90f8-99fc543e84c5"],
Cell[CellGroupData[{
Cell[780, 29, 701, 20, 28, "Input",ExpressionUUID->"13df52e5-d3fb-40fa-bd0e-95eb1b3fec7b"],
Cell[1484, 51, 554, 17, 58, "Output",ExpressionUUID->"b046fb1c-854a-4c92-b802-dffcd80f29b7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2075, 73, 487, 12, 28, "Input",ExpressionUUID->"e904546c-828e-4b8e-b163-87ff5aa72cf3"],
Cell[2565, 87, 351, 8, 55, "Output",ExpressionUUID->"8254c7e8-0c29-4d0f-b49f-593a737e5cf9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2953, 100, 477, 12, 28, "Input",ExpressionUUID->"4b9d6d36-4190-456d-b1c4-6fca4960c9e1"],
Cell[3433, 114, 350, 8, 55, "Output",ExpressionUUID->"8f42d132-ea07-47af-a706-daed688f4876"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3820, 127, 458, 13, 28, "Input",ExpressionUUID->"131e904a-c182-4fc8-ae82-1cb620de270e"],
Cell[4281, 142, 372, 10, 59, "Output",ExpressionUUID->"df239c3c-38b0-423c-9899-83561e1e4f8a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4690, 157, 477, 11, 28, "Input",ExpressionUUID->"17ee2769-8d7e-4d01-a0fd-a8a3fd21ed7c"],
Cell[5170, 170, 341, 8, 32, "Output",ExpressionUUID->"222ca44a-615c-40e2-97b7-8b571e59925c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5548, 183, 977, 23, 45, "Input",ExpressionUUID->"9590766f-8106-47f0-ae9d-69709191b4b8"],
Cell[6528, 208, 654, 12, 24, "Message",ExpressionUUID->"a0576796-304a-4c09-bf80-11c45b912d5d"],
Cell[7185, 222, 1734, 45, 99, "Output",ExpressionUUID->"130c5dbd-eaa7-497e-9ed1-b2ffce8229c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8956, 272, 134, 2, 28, "Input",ExpressionUUID->"040b99e1-25ef-4ca2-b749-83fc025c7fa3"],
Cell[9093, 276, 691, 20, 58, "Output",ExpressionUUID->"d2803a22-b6d4-4114-bbc3-d2998a519600"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9821, 301, 553, 13, 28, "Input",ExpressionUUID->"754050b6-7fdd-429e-bf6d-6a1f38112351"],
Cell[10377, 316, 214, 3, 32, "Output",ExpressionUUID->"5197be21-30dd-4095-a0b2-f12ee749d34a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10628, 324, 475, 12, 28, "Input",ExpressionUUID->"3a0e0750-b10c-4144-bc9c-0c072ad2a552"],
Cell[11106, 338, 206, 3, 32, "Output",ExpressionUUID->"6163c378-895b-4321-b786-e8933e0fb32f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11349, 346, 820, 21, 75, "Input",ExpressionUUID->"1f7ef688-79b3-4a98-a965-cb3ea5f48f73"],
Cell[12172, 369, 192, 2, 32, "Output",ExpressionUUID->"30a57587-9b63-456e-bbab-3ab97d199988"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12401, 376, 808, 18, 28, "Input",ExpressionUUID->"4e2be940-46a0-4754-81a1-8c51e82f0d9a"],
Cell[13212, 396, 642, 15, 55, "Output",ExpressionUUID->"844a3216-4c26-4508-8dcf-493a566e2bfd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13891, 416, 587, 17, 54, "Input",ExpressionUUID->"d5629e39-8c4e-40f4-8082-e1bd2dcfada0"],
Cell[14481, 435, 207, 3, 32, "Output",ExpressionUUID->"e05da35f-1ddf-4ee7-abdc-a27e95ddfa87"]
}, Open  ]],
Cell[14703, 441, 221, 4, 28, "Input",ExpressionUUID->"4413cf8a-faf1-402f-b3bc-8ffff73bc73b"],
Cell[CellGroupData[{
Cell[14949, 449, 828, 22, 45, "Input",ExpressionUUID->"8798a76d-9ef7-4b41-960c-77cdf746b5e1"],
Cell[15780, 473, 283, 6, 55, "Output",ExpressionUUID->"c9bc8ba5-09dd-46a8-b6c4-3523ded18620"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16100, 484, 201, 3, 45, "Input",ExpressionUUID->"ec420a4b-9a65-4a5f-83d1-3b0e64bffc1a"],
Cell[16304, 489, 292, 6, 32, "Output",ExpressionUUID->"5167df0e-975c-4553-8500-b1aac50870c3"]
}, Open  ]],
Cell[16611, 498, 156, 3, 28, "Input",ExpressionUUID->"a9db1212-ff37-41fd-bd4f-23ef26bb587b"]
}, Open  ]]
}
]
*)

